home *** CD-ROM | disk | FTP | other *** search
/ LiquidLibrary 2005 September / LiquidLibrary 2005 Sep - Disc 1.iso / pc / Portfolio Browser / Filters / PDF / LIB / gs_dps.ps < prev    next >
Text File  |  2003-01-03  |  7KB  |  193 lines
  1. %    Copyright (C) 1997, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile$ $Revision$
  7. % Initialization file for Display PostScript functions.
  8.  
  9. % ------ Contexts ------ %
  10.  
  11. % To create a context with private local VM, we use the .localfork
  12. % operator to actually create the context, the new VM, and an empty
  13. % userdict, and then we call the .initlocaldicts procedure to make
  14. % local copies of the initial contents of the dictionaries in local VM.
  15. % savedlocaldicts in systemdict is a global read-only dictionary whose
  16. % elements are global read-only copies of these initial contents;
  17. % we just copy its elements into local VM and install them in systemdict.
  18. % userdict and internaldict require special handling.
  19.  
  20. % Switching between contexts with different local VMs requires
  21. % changing the bindings in systemdict that reference local objects.
  22. % For this purpose, each userdict has an entry called localdicts
  23. % which holds the local copies of the elements of savedlocaldicts,
  24. % plus internaldict.  The context switching code in the interpreter
  25. % effectively copies this dictionary into systemdict.
  26. % NOTE: the name localdicts is known to the interpreter.
  27.  
  28. % Switching between contexts also requires resetting the user parameters.
  29. % The interpreter records the value of userparams (a local dictionary
  30. % referenced from systemdict) for each context, and uses it for this.
  31. % See gs_lev2.ps for more details.
  32. % NOTE: the name userparams is known to the interpreter.
  33.  
  34. % Save copies of local dictionaries at the end of system initialization.
  35. % Also save the initial gstate.
  36. /.savelocalstate {
  37.   .currentglobal true .setglobal
  38.   //systemdict /savedlocaldicts mark //systemdict {
  39.     dup gcheck {
  40.       pop pop
  41.     } {
  42.       dup type /dicttype eq {
  43.         % Save a copy of this dictionary in global VM.
  44.     dup maxlength dict .copydict readonly
  45.       } {
  46.     pop pop
  47.       } ifelse
  48.     } ifelse
  49.   } forall .dicttomark readonly put
  50.         % Create localdicts for the current context.
  51.   false .setglobal
  52.   userdict /localdicts mark savedlocaldicts {
  53.     pop dup load
  54.   } forall /internaldict dup load
  55.   .dicttomark readonly put
  56.         % Save a copy of the initial gstate.
  57.   true .setglobal
  58.   //systemdict /savedinitialgstate gstate readonly put
  59.   .setglobal
  60. } .bind def
  61.  
  62. % Initialize local dictionaries and gstate when creating a new context.
  63. % Note that until this completes, we are in the anomalous situation of
  64. % having systemdict point to dictionaries that are in a non-current
  65. % local VM.  Because of this, we turn off garbage collection temporarily.
  66. /.copylocal {        % <name> <dict> .copylocal <name> <dict'>
  67.         % Copy a dictionary to the current (local) VM,
  68.         % and make it read-only if its current definition is.
  69.   dup maxlength dict .copydict
  70.   1 index load wcheck not { readonly } if
  71. } .bind def
  72. % When this is called, the dictionary stack is in its initial state,
  73. % and there is (anomalously) only one gstate on the gstate stack.
  74. /.initlocaldicts {        % - .initlocaldicts -
  75.   -2 vmreclaim
  76.   .currentglobal //systemdict begin
  77.   false .setglobal
  78.         % Since localdicts doesn't exist yet, references from
  79.         % systemdict to local objects won't get restored if
  80.         % a context switch happens in this code.  Therefore,
  81.         % until localdicts is defined, we have to keep all our
  82.         % state on the operand stack.
  83.  
  84.         % Acquire userdict.
  85.         %****** WRONG IF NON-STANDARD INITIAL DSTACK ******
  86.   countdictstack array dictstack
  87.    { dup gcheck not { exit } if pop } forall
  88.         % Create localdicts with a local copy of each dictionary,
  89.         % except for userdict and userparams, which just need
  90.         % to be filled in.
  91.   mark savedlocaldicts {
  92.     1 index /userdict eq {
  93.         % Stack: userdict mark ... /userdict inituserdict
  94.       counttomark 1 add index .copydict
  95.     } {
  96.       1 index /userparams eq {
  97.         % Stack: userdict mark ... /userparams inituserparams
  98.     userparams .copydict
  99.       } {
  100.     .copylocal
  101.       } ifelse
  102.     } ifelse
  103.   } forall /internaldict dup .makeinternaldict .makeoperator
  104.   .dicttomark readonly /localdicts exch put
  105.         % localdicts is now defined in userdict.
  106.         % Copy the definitions into systemdict.
  107.   localdicts { .forcedef } forall
  108.         % Set the user parameters.
  109.   userparams readonly .setuserparams
  110.         % Establish the initial gstate(s).
  111.   /savedinitialgstate .systemvar setgstate gsave
  112.         % Wrap up.
  113.   end .setglobal
  114. } odef
  115.  
  116. % Check whether an object is a procedure.
  117. /.proccheck {            % <obj> .proccheck <bool>
  118.   dup xcheck
  119.   exch type dup /arraytype eq exch /packedarraytype eq or and
  120. } bind def
  121.  
  122. % Create a context with private local VM.
  123. % The .localfork operator does all the work, but we must ensure that
  124. % .initlocaldicts gets called when the new context starts up.
  125. /localfork {            % <mark> <obj1> ... <objN> <proc>
  126.                 %   <stdin|null> <stdout|null>
  127.                 %   localfork <context>
  128.   .currentglobal true .setglobal 3 index
  129.   dup .proccheck not {
  130.     pop .setglobal /localfork cvx /typecheck signalerror
  131.   } if
  132.   {exec .initlocaldicts} aload pop
  133.   3 1 roll 3 packedarray cvx
  134.   4 1 roll 5 -1 roll pop .setglobal .localfork
  135. } odef
  136.  
  137. % Fork a context that shares VM.  The .fork operator creates an empty
  138. % userparams dictionary for the context, but we still need to initialize
  139. % this dictionary when the new context starts up.
  140. /.postfork {        % - .postfork -
  141.     % Initialize the user parameters.
  142.   savedlocaldicts /userparams get userparams .copydict readonly pop
  143. } odef
  144. /fork {            % <mark> <obj1> ... <objN> <proc> fork <context>
  145.   .currentglobal false .setglobal 1 index
  146.   dup .proccheck not {
  147.     pop .setglobal /fork cvx /typecheck signalerror
  148.   } if
  149.   {exec .postfork} aload pop
  150.   3 1 roll 3 packedarray cvx
  151.   3 1 roll exch pop .setglobal .fork
  152. } odef
  153.  
  154. % ------ Halftone phase ------ %
  155.  
  156. /sethalftonephase {        % <x> <y> sethalftonephase -
  157.   -1 2 index 2 index .setscreenphase pop pop
  158. } odef
  159. /currenthalftonephase {        % - currenthalftonephase <x> <y>
  160.   0 .currentscreenphase
  161. } odef
  162.  
  163. % ------ Device-source images ------ */
  164.  
  165. .imagetypes 2 /.image2 load put
  166.  
  167. % ------ Device information ------ %
  168.  
  169. /.deviceinfodict mark
  170.   /Colors null /GrayValues null /RedValues null /GreenValues null
  171.   /BlueValues null /ColorValues null
  172. .dicttomark readonly def
  173. /deviceinfo {            % - deviceinfo <dict>
  174.   currentdevice //.deviceinfodict .getdeviceparams .dicttomark readonly
  175. } odef
  176.  
  177. % The current implementation allocates a 2-element array each time.
  178. % Perhaps we should change this to 2 separate parameters for X and Y?
  179. /.wtdict mark
  180.   /wtranslation null
  181. .dicttomark readonly def
  182. /wtranslation {            % - wtranslation <x> <y>
  183.   currentdevice //.wtdict .getdeviceparams exch pop exch pop aload pop
  184. } odef
  185. currentdict /.wtdict .undef
  186.  
  187. % ------ View clipping ------ %
  188.  
  189. /rectviewclip {            % <x> <y> <width> <height> rectviewclip -
  190.                 % <numarray|numstring> rectviewclip -
  191.   newpath .rectappend viewclip
  192. } odef
  193.